home *** CD-ROM | disk | FTP | other *** search
/ DOpus Plus / DOpus Plus.iso / Tutorial / ARexx Tutorial / TuteRexx / DOpusGetstring.dopus5 < prev    next >
Text File  |  1998-09-29  |  374b  |  15 lines
  1. /* DOpus getstring test */
  2. options results
  3. address 'DOPUS.1'
  4. dopus front
  5. dopus getstring '"Please enter your name" 15 "Jon Potter" Okay|_Cancel'
  6. text = 'The value of DOPUSRC was: 'dopusrc
  7. dopus request '"'text'" OK'
  8. if dopusrc ~= 0 then do
  9.   text = "Your name is: "result
  10.   dopus request '"'text'" OK'
  11.   end
  12. else dopus request '"You cancelled the input" OK'
  13. dopus back
  14. exit
  15.